home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / dos.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  92 lines
  1. 5 POKE53280,2:POKE53281,15:PRINT"[144]"
  2. 10 PRINT"[147]":PRINT:PRINT
  3. 20 PRINTTAB(10);"DISK USER MENU"
  4. 30 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][144]"
  5. 40 PRINT
  6. 50 PRINT"         1.DISK DIRECTORY"
  7. 60 PRINT"         2.FORMAT NEW DISK"
  8. 70 PRINT"         3.INITIALIZE DISK"
  9. 80 PRINT"         4.COPY FILE"
  10. 90 PRINT"         5.RENAME FILE"
  11. 100 PRINT"         6.ERASE FILE(S)"
  12. 110 PRINT"         7.VALIDATE FILES"
  13. 120 PRINT"         8.WRITE MENU FILE"
  14. 130 PRINT"         9.ERROR STATUS"
  15. 140 PRINT"        10.EXIT TO BASIC"
  16. 150 PRINT
  17. 160 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][144]"
  18. 170 PRINT"INPUT YOUR CHOICE,HIT RETURN"
  19. 180 PRINT
  20. 190 INPUT CHOICE
  21. 200 ON CHOICEGOSUB250,300,350,400,450,500,550,600,650,700
  22. 210 GOTO10
  23. 250 PRINT"[147]"
  24. 251 OPEN1,8,0,"$"
  25. 252 GET#1,A$,B$
  26. 254 GET#1,A$,B$
  27. 256 GET#1,A$,B$
  28. 258 C=0:IFA$<>""THENC=ASC(A$)
  29. 260 IFB$<>""THENC=C+ASC(B$)*256
  30. 262 PRINTMID$(STR$(C),2);TAB(3);
  31. 264 GET#1,B$:IFST<>0THEN282
  32. 266 IFB$<>CHR$(34)THEN264
  33. 268 GET#1,B$:IFB$<>CHR$(34)THENPRINTB$;:GOTO268
  34. 270 GET#1,B$:IFB$=CHR$(32)THEN270
  35. 272 PRINTTAB(30);:C$=""
  36. 274 C$=C$+B$:GET#1,B$:IFB$<>""THEN274
  37. 276 PRINTLEFT$(C$,3)
  38. 280 IFST=0THEN254
  39. 282 PRINT" BLOCKS FREE"
  40. 284 CLOSE1:PRINT:PRINT"HIT RETURN FOR MENU":INPUTX$:RETURN
  41. 300 PRINT"[147]":PRINT:PRINT
  42. 305 PRINT"INSERT DISK TO BE FORMATTED":PRINT
  43. 310 PRINT"INPUT DISK NAME":INPUT DISK$
  44. 320 PRINT:PRINT"INPUT EXTENDER NAME":INPUT EXT$
  45. 325 MACRO$="N:"+DISK$+","+EXT$
  46. 330 OPEN15,8,15,MACRO$
  47. 340 CLOSE15:MACRO$="":RETURN
  48. 350 PRINT"[147]":PRINT:PRINT
  49. 360 PRINT"INSERT DISK TO BE INITIALIZED":PRINT
  50. 370 PRINT"HIT RETURN TO INITIALIZE":INPUTX$
  51. 380 OPEN15,8,15,"I"
  52. 390 CLOSE15:RETURN
  53. 400 PRINT"[147]":PRINT:PRINT
  54. 410 PRINT"INPUT SOURCE FILE NAME":INPUT DISK$
  55. 420 PRINT:PRINT"INPUT NEW FILE NAME":INPUT NWS$
  56. 425 MACRO$="C:"+NWS$+"="+DISK$
  57. 430 OPEN15,8,15,MACRO$
  58. 440 CLOSE15:MACRO$="":RETURN
  59. 450 PRINT"[147]":PRINT:PRINT
  60. 460 PRINT"INPUT OLD FILE NAME":INPUT DISK$
  61. 470 PRINT:PRINT"INPUT NEW FILE NAME":INPUT NWS$
  62. 475 MACRO$="R:"+NWS$+"="+DISK$
  63. 480 OPEN15,8,15,MACRO$
  64. 490 CLOSE15:MACRO$="":RETURN
  65. 500 PRINT"[147]":PRINT:PRINT
  66. 510 PRINT"INPUT FILE NAMES TO DELETE":INPUT DISK$
  67. 520 PRINT:PRINT:PRINT"HIT RETURN TO DELETE":INPUTX$
  68. 530 MACRO$="S:"+DISK$
  69. 535 OPEN15,8,15,MACRO$
  70. 540 CLOSE15:MACRO$="":RETURN
  71. 550 PRINT"[147]":PRINT:PRINT
  72. 560 PRINT"WARNING!! OPEN FILES WILL BE DELETED"
  73. 570 PRINT:PRINT:PRINT"HIT RETURN TO VALIDATE":INPUTX$
  74. 580 OPEN1,8,15,"V"
  75. 590 CLOSE1:RETURN
  76. 600 PRINT"[147]":PRINT:PRINT
  77. 610 PRINT"INSERT DISK TO BE WRITTEN TO":PRINT
  78. 620 PRINT:PRINT:PRINT"HIT RETURN TO WRITE MENU FILE":INPUTX$
  79. 625 OPEN1,8,15
  80. 630 SAVE"MENU",8
  81. 635 CLOSE1
  82. 640 RETURN
  83. 650 OPEN1,8,15
  84. 660 INPUT#1,A,B$,C,D
  85. 670 PRINT"[147]":PRINT:PRINT
  86. 680 PRINT"ERROR STATUS":PRINT:PRINT"ERROR# ";A:PRINTB$:PRINT"TRACK ";C,"SECTOR ";D
  87. 685 PRINT:PRINT"0=NO ERROR"
  88. 690 PRINT:PRINT:PRINT"HIT RETURN FOR MENU":INPUTX$:CLOSE1:RETURN
  89. 700 PRINT"[147]":PRINT:PRINT
  90. 710 PRINT"NOTE: MENU PROGRAM IS STILL PRESENT"
  91. 720 END
  92.